home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
olrdrs
/
1st_111b.zip
/
SCRIPTS.ZIP
/
$$PCP.SCR
< prev
next >
Wrap
Text File
|
1993-05-23
|
1KB
|
52 lines
' ┌─────────────────────────────────┐
' │ PC Pursuit script for 1stReader │
' │ Written by Mark Herring │
' │ April 15, 1993 │
' └─────────────────────────────────┘
LOCKLINE 20 78
COMMENT "@DATE@ @TIME@ Connecting to PC Pursuit"
PRINT " @X7F┌───────────────────────────────@X70┐@X07"
PRINT " @X7F│@X70 1stReader PC Pursuit Script │@X07"
PRINT " @X7F└@X70───────────────────────────────┘@X07"
PRINT "$TOP 4"
CLS
:START
IF WEEKDAY=7 GOTO BEGIN 'Saturday is ok
IF WEEKDAY=1 GOTO BEGIN 'Sunday is ok too
IF CHECKTIME(6:00,17:59) GOTO PRIME
:BEGIN
COMMENT "@DATE@ @TIME@ Dialing PC Pursuit local access number"
TRANSMIT "@API$(128) @API$(105)^M"
WAITFOR "CONNECT|BUSY|NO CARRIER|TONE" 30
IF FOUND=1 GOTO LOGIN
PAUSE @API(265)
GOTO START
:LOGIN
PAUSE 1
SET_API(194)=-1
LOOKFOR "NO CARRIER" "(HANGUP)"
TRANSMIT "@"
PAUSE 1
TRANSMIT "D^M
WAITFOR "TELENET" 5
IF FOUND=1 GOTO OK
HANGUP
GOTO BEGIN
:OK
WAITFOR "TERMINAL=" 30
TRANSMIT "D1^M"
WAITFOR "@" 10
RUN $$GOCITY.SCR CITY
:PRIME
BEEP
PROMPT "PC Pursuit prime time usage is not allowed"
SET_API(81)=-1
PRINT "$TOP 1"